#!/usr/bin/perl -w
use XTM;
my $dut_mgmt_ip = $ARGV[0];

my $dut = new XTM(eth1=>$dut_mgmt_ip);
$dut->cli->connect_cli();
$dut->cli->cmd("diagnose enable readwrite");
$dut->cli->disconnect();

